home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 2000 January
/
Macworld (2000-01).dmg
/
QuarkXPress 4.10 update
/
3rd Party
/
Demo XTs
/
Layout Ltd. Demos
/
SafahatXT Demo - MAC.sea
/
SafahatXT Demo - MAC
/
SafahatXT™ DEMO.rsrc
/
PSAX_1015
< prev
next >
Wrap
Text File
|
1999-01-21
|
2KB
|
41 lines
/shgr{chc 0 get 2 and 0 eq{100 45{dup mul exch dup mul add 1. exch sub}setscreen
.8}{1}ifelse H}def
/setchc{chc exch 0 exch put}B
/chkch{currentfont dup/Encoding 2 copy known{get 2 index 0 get get dup/.notdef ne
{exch/CharStrings 2 copy known{get exch known not}{p3 T}ifelse}
{p2 T}ifelse}{p3 T}ifelse}B
/xpsh{doss ss and{sym fmtx makefont/xpfs X
{s1 0 3 -1 roll put
s1 chkch{g xpfs setfont M cps G mif}
{M}ifelse}forall}{M}ifelse}B
/xpash{doss ss and{sym fmtx makefont/xpfs X
{s1 0 3 -1 roll put 2 copy
s1 chkch{g xpfs setfont N cps G mif}
{N}ifelse}forall p2}{N}ifelse}B
/xpwsh{doss ss and{sym fmtx makefont/xpfs X
{s1 0 3 -1 roll put 3 copy
s1 chkch{g xpfs setfont Y cps G mif}
{Y}ifelse}forall p3}{Y}ifelse}B
/xpawsh{doss ss and{sym fmtx makefont/xpfs X
{s1 0 3 -1 roll put 5 copy
s1 chkch{g xpfs setfont Q cps G mif}
{Q}ifelse}forall p2 p3}{Q}ifelse}B
/dAxt553{dup doss ss and{sym fmtx makefont/xpfs X
0 0 3 -1 roll{s1 0 3 -1 roll put
s1 chkch{g xpfs setfont w G}
{w}ifelse 3 -1 roll add 3 1 roll add exch}forall}
{w}ifelse pop 3 -1 roll sub 3 -1 roll div
3 -1 roll exch sub 0 32 3 -1 roll 0 5 -1 roll
doss ss and{xpash p3}{Q}ifelse}B
/d{count 6 ge{5 index 65536 eq{pop pop pop pop pop pop}{dAxt553}ifelse}{dAxt553}ifelse}B
/DAxt553{dup doss ss and{sym fmtx makefont/xpfs X
0 0 3 -1 roll{s1 0 3 -1 roll put
s1 chkch{g xpfs setfont w G}
{w}ifelse 3 -1 roll add 3 1 roll add exch}forall}
{w}ifelse pop 3 -1 roll exch sub 3 -1 roll div 0 3 -1 roll xpash}B
/D{count 3 ge{2 index 65536 eq{pop pop pop}{DAxt553}ifelse}{DAxt553}ifelse}B
/sshAxt553{2 copy g dup vtd{neg}if rm shgr xpsh pop G xpsh}B
/ssh{count 3 ge{2 index 65536 eq{pop pop pop}{sshAxt553}ifelse}{sshAxt553}ifelse}B
/stdAxt553{6 copy g dup vtd{neg}if rm shgr d pop G d}B
/std{count 7 ge{6 index 65536 eq{pop pop pop pop pop pop pop}{stdAxt553}ifelse}{stdAxt553}ifelse}B